; Music of Mega Apocalypse (1988) (Martech) (Jason C.Brooke)
; Ripped by Megachur the 16/12/2006

	write "MEGAAPOC.BIN"

music_date_rip	equ &10c6
music_adr	equ &4600
first_theme	equ 0
last_theme	equ 0

	read "music_header_v1_0.asm"

;4600
;
.play_music
;
	sub a
.lb602 equ $ + 1
.music_end equ $ + 1
	cp #00
	push ix
	jr z,lb641
	ld b,a
	ld ix,lb964
	ld hl,lb9a9
	dec (hl)
	jr nz,lb620
.lb613 equ $ + 1
	ld (hl),#06
	call lb7f3
	call lb7f1
	call lb7f1
	ld lx,lb964	;#64
.lb621 equ $ + 1
.lb620
	ld a,#00
	ld (lb9b0),a
	ld bc,lb9b2
	call lb87f
	ld (lb9aa),hl
	ld bc,lb9b3
	call lb87d
	ld (lb9ac),hl
	ld bc,lb9b4
	call lb87d
	ld (lb9ae),hl
.lb640
	sub a
.lb642 equ $ + 1
.lb641
	cp #00
	jr z,lb6a6
	ld hl,lb95e
	dec (hl)
	jr nz,lb653
	ld (lb9b4),a
	ld (lb642),a
	jr lb6a6
.lb653
	ld de,(lb95c)
	ld a,(lb955)
	or a
	jr z,lb673
	ld hl,lb960
	dec (hl)
	jr nz,lb673
	ld (hl),a
	ld hl,lb956
	rrc (hl)
	ld hl,(lb957)
	jr c,lb671
	ld hl,(lb959)
.lb671
	add hl,de
	ex de,hl
.lb673
	ld hl,(lb950)
	add hl,de
	ld a,(lb954)
	or a
	jr z,lb68a
	ex de,hl
	ld hl,lb95f
	dec (hl)
	jr nz,lb689
	ld (hl),a
	ld de,(lb952)
.lb689
	ex de,hl
.lb68a
	ld (lb95c),hl
	ld a,#10
	ld (lb9b4),a
	ld (lb9ae),hl
	ld a,l
	ld hl,lb95b
	rrc (hl)
	ld hl,lb966
	res 0,(hl)
	jr nc,lb6a6
	inc (hl)
	ld (lb9b0),a
.lb6a6
	ld hl,lb966
	ld a,#fe
	or (hl)
	dec l
	ld c,(hl)
	dec l
	rr c
	rla
	ld c,(hl)
	rr c
	rla
	ld c,a
	add a
	add a
	add a
	xor c
	ld (lb9b1),a
	sub a
.lb6c0 equ $ + 1
	cp #00
	ld hl,lb9b6
	ld c,a
	ld de,#0cf6
	jr z,lb6cf
	inc d
	inc l
	ld (lb6c0),a
.lb6cf
	ld a,#c0
.lb6d1
	ld b,#f4
	out (c),d
	ld b,e
	out (c),a
	rlca
	out (c),c
	dec b
	outd
	ld b,e
	out (c),a
	rrca
	out (c),c
	dec d
	jp p,lb6d1
.lb6e8
	pop ix
	ret
;
.init_music
;
	push bc
	push de
	push hl
	ld de,lb965
	ld bc,#0044
	ld hl,lb602
	push hl
	ld (hl),b
	ld hl,lb964
	push hl
	ld (hl),b
	ldir
	ld hl,lbc38
	ld a,(hl)
	inc hl
	ld (lb613),a
	ex (sp),ix
	ld bc,#0301
	ld a,c
	ld (de),a
.lb70f
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (ix+#24),c
	ld (ix+#09),e
	ld (ix+#0c),d
	ld (ix+#0f),#02
	ld a,(de)
	ld (ix+#03),a
	inc e
	ld a,(de)
	ld (ix+#06),a
	inc lx
	djnz lb70f
	pop ix
	pop hl
	ld (hl),c
	pop hl
	pop de
	pop bc
	ret
	push bc
	push de
	push hl
	add a
	ld c,a
	add a
	add a
	ld b,#00
	ld hl,lbf94
	add hl,bc
	ld c,a
	add hl,bc
	add hl,bc
	ld de,lb950
	ld c,#0f
	sub a
	ld (lb642),a
	ldir
	ld c,#03
	ld de,lb9b5
	ldir
	ld hl,(lb954)
	ld (lb95f),hl
	inc a
	ld (lb642),a
	ld (lb6c0),a
	pop hl
	pop de
	pop bc
	ret
	db #da,#74,#45,#68,#6b,#1a,#51,#7c
	db #05,#37,#75,#6f,#2f
	ld hl,lb640
	ex (sp),hl
;
.stop_music
;
	sub a
	ld (lb602),a
	ld (lb9b2),a
	ld (lb9b3),a
	ld (lb9b4),a
	ret
	ld c,(ix+#0f)
	ld l,(ix+#09)
	ld h,(ix+#0c)
	add hl,bc
	ld a,(hl)
	inc l
	or (hl)
	jr nz,lb799
	sbc hl,bc
	ld c,b
.lb799
	ld d,(hl)
	dec l
	ld e,(hl)
	inc c
	inc c
	ld (ix+#0f),c
	jr lb806
	ld (ix+#2a),a
	jr lb806
	ld a,(de)
	inc de
	ld (ix+#3f),a
	jr lb806
	ld a,(de)
	inc de
	ld (ix+#1e),a
	set 3,(ix+#42)
	ld a,(de)
	inc de
	ld (ix+#21),a
	jr lb806
	ld a,(de)
	inc de
	ld (ix+#39),a
	ld a,(de)
	inc de
	ld (ix+#3c),a
	add a
	ld (ix+#36),a
	set 4,(ix+#42)
	jr lb806
	set 7,(ix+#42)
	set 6,(ix+#42)
	jr lb806
	ld (ix+#42),b
	jr lb806
	ld a,(de)
	inc de
	ld (lb93d),a
	set 2,(ix+#42)
	set 1,(ix+#42)
	jr lb806
.lb7f1
	inc lx
.lb7f3
	dec (ix+#24)
	ld a,(ix+#42)
	jr nz,lb836
	and #30
	ld (ix+#42),a
	ld e,(ix+#03)
	ld d,(ix+#06)
.lb806
	ld a,(de)
	inc de
	cp #b0
	jr c,lb82a
	add #20
	jr c,lb81f
	add #20
	jr c,lb825
	ld c,a
	ld hl,lba86
	add hl,bc
	ld c,(hl)
	ld (ix+#18),c
	jr lb806
.lb81f
	inc a
	ld (ix+#27),a
	jr lb806
.lb825
	ld (ix+#33),a
	jr lb806
.lb82a
	or a
	jp p,lb848
	ld c,a
	ld hl,lb6e8
	add hl,bc
	ld c,(hl)
	add hl,bc
	jp (hl)
.lb836
	add a
	ret p
	sbc a
	or #01
	add (ix+#2a)
	ld (ix+#2a),a
	ret
	ld (ix+#30),#f0
	jr lb870
.lb848
	ld (ix+#12),b
	ld (ix+#15),b
	bit 7,(ix+#2a)
	ld (ix+#2a),a
	jr nz,lb85d
	ld (ix+#30),b
	ld (ix+#2d),b
.lb85d
	ld c,(ix+#18)
	ld (ix+#1b),c
	ld c,b
	sub #54
	jr c,lb86d
	ld c,#02
	ld (lb621),a
.lb86d
	ld (ix+#00),c
.lb870
	ld a,(ix+#27)
	ld (ix+#24),a
	ld (ix+#06),d
	ld (ix+#03),e
	ret
.lb87d
	inc lx
.lb87f
	ld d,#00
	ld a,(ix+#30)
	cp #f0
	jr nc,lb8a3
	sub #10
	ld (ix+#30),a
	jr nc,lb8a3
	ld hl,lbb8f
	ld e,(ix+#33)
	add hl,de
	ld a,(hl)
	add (ix+#2d)
	ld e,a
	add hl,de
	ld a,(hl)
	inc (ix+#2d)
	ld (ix+#30),a
.lb8a3
	or #f0
	add #0f
	inc a
	jr c,lb8ab
	sub a
.lb8ab
	ld (bc),a
	ld hl,lbb7c
	ld e,(ix+#1b)
	inc e
	add hl,de
	ld a,(hl)
	or a
	jp p,lb8be
	ld e,(ix+#18)
	and #7f
.lb8be
	ld (ix+#1b),e
	add (ix+#2a)
	add (ix+#3f)
	add a
	ld hl,lb9b8
	ld e,a
	add hl,de
	ld e,(hl)
	inc l
	ld d,(hl)
	ld c,(ix+#42)
	bit 4,c
	jr z,lb902
	sub a
	or (ix+#39)
	jr nz,lb8df
	inc a
	and c
.lb8df
	ld b,(ix+#36)
	ld l,a
	ld a,(ix+#3c)
	bit 5,c
	jr nz,lb8f1
	sub l
	jr nz,lb8f7
	set 5,c
	jr lb8f7
.lb8f1
	add l
	cp b
	jr nz,lb8f7
	res 5,c
.lb8f7
	ld (ix+#3c),a
	srl b
	sub b
	ld l,a
	sbc a
	ld h,a
	add hl,de
	ex de,hl
.lb902
	ld a,c
	xor #01
	ld (ix+#42),a
	bit 3,c
	jr z,lb92d
	ld b,(ix+#21)
	djnz lb92a
	ld c,(ix+#1e)
	bit 7,c
	jr z,lb919
	dec b
.lb919
	ld l,(ix+#12)
	ld h,(ix+#15)
	add hl,bc
	ld (ix+#12),l
	ld (ix+#15),h
	add hl,de
	ex de,hl
	jr lb92d
.lb92a
	ld (ix+#21),b
.lb92d
	cpl
	and #03
	ld a,(ix+#00)
	ld c,a
	res 0,c
	rra
	jr nz,lb940
	ld hl,lb9b0
.lb93d equ $ + 1
	ld (hl),#10
	or #01
.lb940
	or c
	bit 2,(ix+#42)
	jr z,lb94b
	res 1,(ix+#42)
.lb94b
	ld (ix+#00),a
	ex de,hl
	ret
.lb957 equ $ + 7
.lb956 equ $ + 6
.lb955 equ $ + 5
.lb954 equ $ + 4
.lb952 equ $ + 2
.lb950
	db #00,#00,#00,#00,#00,#00,#00,#00
.lb95f equ $ + 7
.lb95e equ $ + 6
.lb95c equ $ + 4
.lb95b equ $ + 3
.lb959 equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
.lb966 equ $ + 6
.lb965 equ $ + 5
.lb964 equ $ + 4
.lb960
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00
.lb9aa equ $ + 7
.lb9a9 equ $ + 6
	db #00,#00,#00,#00,#00,#00,#01,#00
.lb9b2 equ $ + 7
.lb9b1 equ $ + 6
.lb9b0 equ $ + 5
.lb9ae equ $ + 3
.lb9ac equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
.lb9b6 equ $ + 3
.lb9b5 equ $ + 2
.lb9b4 equ $ + 1
.lb9b3
	db #00,#00,#00,#00,#00
.lb9b8
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
.lba0e equ $ + 6
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
.lba60
	dw lbc45,lbc45,lbc75,lbc45
	dw lbc45,lbe37,lbe37,lbe37
	dw lbe37,lbd4a,lbd6e,lbd4a
	dw lbd6e,lbc45,lbdcf,lbded
.lba86 equ $ + 6
	dw lbdcf,lbe0c,lbeb3,lbeb3
	dw lbeb3,lbeb3,lbeb3,lbeb3
	dw lbf05,lbf26,lbd4a,lbd6e
	dw lbd4a,lbd6e,lbd4a,lbd6e
	dw lbd4a,lbd6e,lbdcf,lbded
	dw lbdcf,lbe0c,lbeb3,lbeb3
	dw lbeb3,lbeb3,lbd4a,lbd6e
	dw #0000
.lbaba
	dw lbc43,lbc45,lbc8b
	dw lbc43,lbc45,lbe5c,lbd81
	dw lbd81,lbc45,lbdcf,lbded
	dw lbdcf,lbe16,lbed8,lbee9
	dw lbed8,lbef7,lbed8,lbee9
	dw lbed8,lbef7,lbed8,lbee9
	dw lbed8,lbef7,lbf05,lbf48
	dw lbc8b,lbdcd,lbded,lbdcf
	dw lbe16,lbed8,lbee9,lbed8
	dw lbef7,lbed8,lbee9,lbed8
	dw lbef7,lbd81,#0000
.lbb0e
	dw lbc5f
	dw lbc5f,lbd03,lbd03,lbd03
	dw lbd03,lbd03,lbd03,lbd03
	dw lbd03,lbc5f,lbc5f,lbd03
	dw lbd03,lbd03,lbd03,lbd03
	dw lbd03,lbd03,lbd03,lbc5f
	dw lbd03,lbd03,lbd03,lbe24
	dw lbd03,lbd03,lbd03,lbd03
	dw lbd03,lbd03,lbd03,lbf6b
	dw lbd03,lbd03,lbd03,lbd03
	dw lbd03,lbd03,lbd03,lbd03
	dw lbd03,lbd03,lbd03,lbe24
	dw lbd03,lbd03,lbd03,lbd03
	dw lbd03,lbd03
	db #00,#00,#00,#01,#04,#07,#0a,#0d
.lbb7c
	db #0f,#80,#00,#04,#87,#04,#07,#8c
	db #07,#0c,#90,#07,#0c,#8f,#00,#8c
.lbb8f equ $ + 3
	db #03,#07,#8c,#10,#16,#1f,#23,#2a
	db #31,#3c,#4c,#4e,#59,#63,#6f,#76
	db #7c,#82,#93,#0e,#0d,#0e,#0d,#2c
	db #2b,#f9,#0e,#0d,#0c,#0b,#0a,#09
	db #08,#07,#06,#f7,#0f,#0d,#0c,#1b
.lbbba equ $ + 6
	db #fa,#0d,#0c,#0a,#18,#06,#04,#02
	db #f0,#0c,#0b,#09,#17,#05,#03,#01
	db #f0,#1c,#0a,#09,#07,#06,#08,#07
	db #05,#04,#02,#01,#f0,#0f,#1d,#0e
	db #1c,#0d,#1b,#0a,#29,#18,#17,#16
	db #15,#04,#03,#02,#01,#f0,#0b,#05
	db #f0,#37,#38,#39,#3a,#3b,#3c,#4d
	db #7e,#7d,#7c,#7b,#fa,#0a,#29,#28
	db #27,#26,#25,#24,#23,#22,#21,#f0
	db #0a,#00,#08,#06,#00,#07,#05,#08
	db #05,#02,#06,#01,#f4,#47,#48,#49
	db #7a,#79,#78,#77,#f6,#0d,#0e,#0d
	db #1c,#1b,#1a,#f9,#0b,#08,#06,#04
	db #02,#01,#f0,#0d,#0e,#0d,#0c,#0b
	db #1a,#0b,#0a,#09,#18,#17,#08,#07
	db #06,#15,#14,#05,#f4,#16,#55,#d5
	db #d6,#d7,#d8,#f9
.lbc38
	db #06
	dw lba60
	dw lbaba
	dw lbb0e
.lbc43 equ $ + 4
	db #ff,#80,#80,#85,#89
.lbc45 equ $ + 1
	db #0c,#b0,#86,#02,#04,#c1,#e0,#0c
	db #0c,#0c,#0c,#e1,#0c,#e0,#0c,#0c
	db #e0,#07,#07,#07,#e1,#07,#e0,#07
.lbc5f equ $ + 3
	db #07,#07,#85,#cd,#e0,#63,#63,#63
	db #63,#e1,#63,#e0,#63,#63,#e0,#63
	db #63,#63,#e1,#63,#e0,#63,#63,#63
.lbc75 equ $ + 1
	db #85,#c0,#ef,#11,#0f,#0c,#09,#0e
	db #0c,#07,#e7,#09,#0a,#ef,#11,#0f
.lbc8b equ $ + 7
	db #0c,#09,#0e,#0c,#07,#09,#85,#89
	db #00,#c2,#b0,#86,#02,#04,#e5,#2e
	db #2d,#e3,#2b,#e7
	db #29,#86,#04,#08,#8c,#29,#86,#02
	db #04,#e5,#29,#28,#e3,#26,#e7,#28
	db #24,#e5,#2b,#29,#e3,#28,#e7,#26
	db #86,#04,#08,#8c,#26,#86,#02,#04
.lbcbc equ $ + 4
	db #e5,#2b,#29,#e3,#28,#e7,#29,#2b
	db #ce,#e1,#1a,#18,#c2,#2e,#e5,#2d
	db #e3,#2b,#e7,#29,#86,#04,#08,#8c
	db #29,#86,#02,#04,#ce,#e1,#1a,#18
	db #c2,#29,#e5,#28,#e3,#26,#e7,#28
	db #24,#ce,#e1,#1a,#18,#c2,#2b,#e5
	db #29,#e3,#28,#e7,#26,#86,#04,#08
	db #8c,#26,#86,#02,#04,#ce,#e1,#1a
	db #18,#c2,#29,#e5,#28,#e3,#26,#e7
.lbd03 equ $ + 3
	db #2b,#2d,#85,#8b,#07,#81,#b0,#e0
	db #c0,#82,#3c,#01,#18,#c7,#57,#5b
	db #5b,#e1,#c3,#69,#e0,#c0,#82,#3c
	db #01,#8a,#18,#c7,#5b,#5b,#57,#5b
	db #5b,#e1,#c3,#69,#e0,#c7,#5b,#5b
	db #c0,#82,#3c,#01,#18,#c7,#57,#5b
	db #5b,#e1,#c3,#69,#e0,#c0,#82,#3c
	db #01,#8a,#18,#c7,#5b,#5b,#57,#5b
	db #5b,#e1,#c3,#69,#e0,#c7,#57,#c4
.lbd4a equ $ + 2
	db #69,#85,#e1,#0e,#e0,#1a,#1a,#1a
	db #1a,#18,#0e,#1a,#e1,#1a,#e0,#1a
	db #80,#1a,#0e,#10,#e1,#11,#e0,#1d
	db #1d,#1d,#1d,#1c,#10,#11,#e1,#1d
.lbd6e equ $ + 6
	db #e0,#11,#1f,#13,#1f,#1f,#e1,#09
	db #e0,#15,#15,#15,#15,#13,#09,#15
	db #e1,#15,#e0,#15,#80,#13,#07,#15
.lbd81 equ $ + 1
	db #85,#ce,#b5,#86,#00,#01,#e2,#18
	db #e0,#1a,#e4,#80,#c5,#b3,#e0,#18
	db #e1,#18,#b4,#1a,#b3,#18,#ce,#b5
	db #e2,#1f,#e0,#1d,#e4,#80,#c5,#b2
	db #e0,#1d,#e1,#1d,#1f,#1d,#ce,#b5
	db #e2,#1f,#e0,#21,#e5,#80,#c5,#b2
	db #e1,#21,#e0,#21,#21,#80,#80,#ce
	db #b5,#21,#e1,#21,#e0,#1f,#e1,#24
	db #e0,#1f,#21,#e3,#80,#c5,#b2,#e0
.lbdcf equ $ + 7
.lbdcd equ $ + 5
	db #21,#21,#e1,#80,#85,#89,#0c,#c1
	db #e0,#1a,#1a,#1a,#1a,#24,#1a,#24
	db #23,#80,#e1,#1a,#e0,#1a,#e1,#26
	db #24,#1a,#e0,#1a,#1a,#e1,#24,#e0
.lbded equ $ + 5
	db #1f,#1d,#e7,#80,#85,#e0,#13,#13
	db #13,#13,#1f,#15,#1f,#1c,#80,#e1
	db #15,#e0,#15,#e1,#1f,#21,#e0,#80
	db #e1,#21,#e0,#21,#e1,#1f,#e0,#1a
.lbe0c equ $ + 4
	db #18,#e7,#80,#85,#e0,#80,#ce,#e2
.lbe16 equ $ + 6
	db #0e,#10,#11,#12,#12,#85,#b2,#86
	db #00,#01,#e0,#80,#e2,#ce,#1a,#1c
.lbe24 equ $ + 4
	db #1d,#1e,#1e,#85,#e0,#80,#c0,#82
	db #3c,#01,#18,#c3,#e1,#63,#e2,#63
.lbe37 equ $ + 7
	db #63,#63,#e0,#63,#63,#63,#85,#e1
	db #0e,#e0,#1a,#1a,#1a,#1a,#18,#0e
	db #1a,#e1,#1a,#e0,#1a,#80,#1a,#0c
	db #0d,#e1,#0e,#e0,#1a,#1a,#1a,#1a
	db #18,#0e,#11,#e1,#1d,#e0,#11,#1f
.lbe5c equ $ + 4
	db #13,#1f,#1f,#85,#e0,#80,#86,#00
	db #01,#c6,#b0,#1a,#e1,#1a,#1a,#e0
	db #18,#1a,#e8,#80,#e0,#24,#e1,#24
	db #24,#e0,#23,#23,#24,#e2,#24,#b2
	db #ce,#1f,#b4,#e0,#1a,#ef,#b0,#80
	db #e0,#80,#c6,#1a,#e1,#1a,#1a,#e0
	db #18,#1a,#e3,#80,#b3,#ce,#e2,#18
	db #b4,#e0,#1a,#c6,#b0,#80,#24,#e1
	db #24,#24,#e0,#23,#23,#b4,#ce,#e2
	db #1a,#b2,#18,#e1,#b6,#1a,#c8,#ff
	db #b5,#86,#14,#14,#82,#04,#30,#26
.lbeb3 equ $ + 3
	db #ef,#80,#85,#e1,#07,#e0,#13,#13
	db #13,#13,#11,#07,#13,#e1,#13,#e0
	db #13,#09,#15,#0a,#16,#e1,#0c,#e0
	db #18,#18,#18,#18,#16,#0c,#18,#e1
	db #18,#e0,#18,#0a,#16,#09,#15,#85
.lbed8
	db #b6,#e0,#80,#1f,#e1,#1f,#1f,#b2
	db #1d,#b6,#e2,#1c,#e0,#1a,#e3,#80
.lbee9 equ $ + 1
	db #85,#e1,#80,#b2,#18,#18,#16,#e2
.lbef7 equ $ + 7
	db #b6,#1a,#b2,#18,#e1,#16,#85,#b2
	db #e0,#22,#22,#e1,#b6,#21,#1f,#e0
.lbf05 equ $ + 5
	db #21,#1f,#e7,#80,#85,#c1,#b0,#e1
	db #1f,#1f,#1d,#e0,#1f,#e1,#1c,#e2
	db #1a,#e1,#80,#e0,#13,#16,#e1,#18
	db #18,#18,#e0,#16,#e1,#1a,#13,#13
.lbf26 equ $ + 6
	db #e0,#13,#16,#16,#c8,#85,#e4,#82
	db #e0,#13,#18,#e3,#82,#e0,#0d,#8c
	db #18,#82,#e0,#0d,#8c,#18,#82,#e0
	db #0d,#8c,#18,#c1,#e0,#15,#e1,#15
	db #e0,#15,#e2,#15,#e3,#15,#80,#85
.lbf48
	db #e3,#82,#e0,#0d,#0c,#82,#e0,#0d
	db #8c,#0c,#82,#e0,#0d,#8c,#0c,#82
	db #e0,#0d,#8c,#0c,#c1,#e0,#80,#b2
	db #21,#e1,#21,#e0,#21,#e2,#21,#e3
.lbf6b equ $ + 3
	db #21,#80,#85,#e1,#c0,#82,#3c,#01
	db #18,#80,#82,#3c,#01,#18,#80,#82
	db #3c,#01,#18,#80,#82,#3c,#01,#18
	db #80,#e0,#c3,#69,#c7,#5b,#e1,#5b
	db #e0,#5b,#e2,#5b,#e3,#5b,#e0,#5b
.lbf94 equ $ + 4
	db #5b,#5b,#5b,#85,#ec,#7f,#39,#01
	db #00,#01,#55,#1d,#00,#e3,#7f,#00
	db #39,#01,#10,#d8,#0e,#09,#06,#00
	db #96,#00,#0e,#01,#55,#02,#00,#fe
	db #7f,#00,#96,#00,#1c,#a0,#0f,#09
	db #12,#00,#46,#00,#00,#01,#55,#06
	db #00,#fa,#7f,#00,#46,#00,#12,#30
	db #11,#09,#03,#00,#03,#00,#08,#01
	db #55,#01,#00,#ff,#ff,#ff,#02,#00
	db #32,#a0,#0f,#09,#01,#00,#0f,#00
	db #0f,#00,#00,#00,#00,#00,#00,#ff
	db #0d,#00,#28,#a0,#81,#f0,#94,#1c
	db #8a,#1c,#83,#0f,#6a,#1b,#03,#03
	db #b9,#00,#0c,#00,#32,#88,#13,#09
;

;org #00bc
;xor a
;ld (#b642),a
;call #b6eb	; init

; call &b600	; play

;org #0321
;ld a,(#b642)
;and a
;ret nz
;ld a,#01
;call #b735	; sound effects init
;ret

;org #0952
;ld a,(#b642)
;and a
;ret nz
;ld a,#02
;call #b735

.game_name
	db "Mega Apocalypse",0
.game_year
	db "1988",0
.game_publisher
	db "Martech",0
.music_author
	db "Jason C.Brooke",0
.music_comment
	db "",0
	
	read "music_end_v1_0.asm"
